% V20210224 - 8.13 GW_ADD_VIDEO

INCLUDE "GW.bas"

p = GW_NEW_PAGE()

% Prepare title bar string.
Title$ = GW_ADD_BAR_TITLE$("Video Example")

% Add title to page.
GW_ADD_TITLEBAR(p, Title$)

% Add descriptive text.
GW_ADD_TEXT(p, "This is an example of the VIDEO control:")

% Add a video.
v1 = GW_ADD_VIDEO(p, "VIDEO0001.mp4")

% Add descriptive text.
GW_ADD_TEXT(p, "This VIDEO control has a poster image:")

% Add another video with a poster image.
v2 = GW_ADD_VIDEO(p, "VIDEO0001.mp4>cartman.png")

GW_RENDER(p)

DO  % Wait for user action.
 r$ = GW_WAIT_ACTION$()

 % Place here any necessary code to process user actions.

 % Example feedback.
 POPUP r$

UNTIL r$ = "BACK" % End when "BACK" key is pressed.

END "End of Video example."